Unit
lmdnonvA

Declaration

TLMDOnNewComponentEvent = procedure(Sender:TObject; aComponent:TComponent) of object;